home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / pi-net.bas < prev    next >
BASIC Source File  |  1994-06-23  |  2KB  |  73 lines
  1. 5 COLOR 0,13:PRINT
  2. 6 PRINT
  3. 10 PRINT "     PI NETWORK HARMONIC ANALYSIS"
  4. 15 PRINT
  5. 20 INPUT "ENTER VALUE OF (Q)"; Q
  6. 25 INPUT "ENTER VALUE OF INPUT RESISTANCE (RI)"; RI
  7. 30 INPUT "ENTER VALUE OF LOAD RESISTANCE (RL)"; RL
  8. 35 X1 = RI/Q
  9. 40 AA = RI/RL
  10. 41 AB = (Q^2) + 1 - (RI/RL)
  11. 42 AC = (AA/AB)^.5
  12. 43 X3 = RL * AC
  13. 50 AD = Q * RI
  14. 51 AE = RL * RI/X3
  15. 52 AM = Q^2 + 1
  16. 53 X2 = (AD + AE)/AM
  17. 55 XM = X1/2
  18. 60 XO = X3/2
  19. 61 XN =X2 * 2
  20. 70 GL = 1/RL
  21. 75 B3 = 1/XO
  22. 80 YA = (GL^2 + B3^2)^.5
  23. 81 W = 57.29578
  24. 85 AF = (ATN(B3/GL))*W
  25. 90 ZA = 1/YA
  26. 100 AG = -AF
  27. 105 RA = ZA * (COS(AG/W))
  28. 110 XA = ZA * (SIN(AG/W))
  29. 115 XB = XN + XA
  30. 120 ZB = (RA^2 + XB^2)^.5
  31. 125 AH = (ATN(XB/RA))*W
  32. 130 YC = 1/ZB
  33. 135 AI = -AH
  34. 140 GC = YC * (COS(AI/W))
  35. 141 BC = YC * (SIN(AI/W))
  36. 145 BI = 1/XM
  37. 150 BD = BI + BC
  38. 155 YI = (GC^2 + BD^2)^.5
  39. 160 AJ = (ATN(BD/GC))*W
  40. 165 ZI = 1/YI
  41. 170 AK = -AJ
  42. 175 RH = ZI * (COS(AK/W))
  43. 180 XH = ZI * (SIN(AK/W))
  44. 185 DB = 4.343 * LOG (RI/RH)
  45. 186 COLOR 0,15:PRINT
  46. 190 PRINT
  47. 195 PRINT "                  ***ANSWERS***"
  48. 200 PRINT
  49. 205 PRINT Q,  "VALUE OF (Q)"
  50. 210 PRINT RI, "INPUT RESISTANCE (RI)"
  51. 215 PRINT RL, "LOAD RESISTANCE (RL)"
  52. 220 PRINT -X1, "VALUE OF REACTANCE (X1)"
  53. 225 PRINT -X3, "VALUE OF REACTANCE (X3)"
  54. 230 PRINT X2, "VALUE OF REACTANCE (X2)"
  55. 235 PRINT DB, "SECOND HARMONIC ATTENUATION IN (DB)"
  56. 236 PRINT:PRINT
  57. 240 INPUT "ENTER FREQUENCY (F) IN MHz"; F
  58. 241 C1 = 159155!/(X1 * F)
  59. 242 C3 = 159155!/(X3 * F)
  60. 243 L2 = .159155 * X2/F
  61. 244 PRINT
  62. 245 PRINT "                  ***ANSWERS***
  63. 246 PRINT
  64. 247 PRINT C1, "CAPACITANCE OF (C1) IN pF"
  65. 248 PRINT C3, "CAPACITANCE OF (C3) IN pF"
  66. 250 PRINT L2, "INDUCTANCE OF (L2) IN uH"
  67. 255 PRINT
  68. 260 COLOR 15,0
  69. 265 PRINT
  70. 270 COLOR 0,10 :PRINT
  71. 275 PRINT:PRINT
  72. 280 PRINT "                 PROGRAM BY I.L.McNALLY  K6WX
  73.